FM Towns: Free Software Collection 10/FM Towns Free Software Collection 10.iso/tos_updt/fmcity/palcom/auto/script/billcom.mx

Text File | 1995-02-10 | 2KB | 88 lines

//--------------------------------------------------------------------------//
//                        ＰＡＬＣＯＭ　Ｖ２．１　Ｌ１０                        //
//                       自動通信：課金情報巡回スクリプト                        //
//                                                                            //
//                                        CopyRight(C) 1994/10/20                //
//                                FUJITSU PERSONAL COMPUTER SYSTEMS LIMITED    //
//                                        written by C-cube Soft T.Nakamura    //
//--------------------------------------------------------------------------//
event    @OPEN.EXTERN {
    $AUTO.WAIT15 = AUTO.getWaitChar( 15 );
    $AUTO.WAIT60 = AUTO.getWaitChar( 60 );

    //---   課金情報に入る   ---//
    sys.stopIntRec();
    loop {
        AUTO.putStr("GO BILL\r");
        $errFlg  = 1;
        comtable( $a, 300 ) {
            interval    { AUTO.haltCheck();  }
            "GO BILL\n"    { $errFlg = 0; exit; }
        }
        if( $errFlg == 0 ) {
            exit;
        }
        AUTO.putStr("\r");
        AUTO.waitPrompt( #TRUE );
        continue;
    }
    $tmpList = [];
    $inFlg   = 0;
    comtable( $a, 0 ) {
        interval        { AUTO.haltCheck();        }
        $AUTO.WAIT60    { AUTO.putStr("\r");    }
        "BILL\n"        { $inFlg = 1;            }
        "＞\w\w"        { exit;                    }
    }
    if( $inFlg == 0 ) {
        //---   課金情報に入れなかった   ---//
        $errMsg = ["課金情報に入ることが出来ませんでした。",
                   "課金情報の巡回を中断しました。"];
        AUTO.error("課金情報巡回", $errMsg );
        return;
    }

    //---   課金情報を表示する   ---//
    AUTO.sendCommand("SET PAGE OFF");
    AUTO.putStr2("2\r");
    $LogId = AUTO.getLogFileId();
    $IdxId = AUTO.getIdxFileId();
    $ptr   = file.tell( $LogId );
    $mode  = 1;
    comtable( $a, 0 ) {
        interval{ AUTO.haltCheck();    }
        "\n"    {
            $ptr2 = file.tell( $LogId );
        }
        "＞\w\w"        {                    // 区切り
            if( $mode == 1 ) {
                AUTO.putStr2("2\r");
                $ptr2 = file.tell( $LogId );
                $mode = 2;
            } elif( $mode == 2 ) {
                $str = data.toString( list.getNth( time.getDate(), 2 ));
                AUTO.putStr2( str.join([$str, "\r"], "" ));
                $ptr2 = file.tell( $LogId );
                $mode = 3;
            } elif( $mode == 3 ) {
                AUTO.writeIdx([[0x501,[16,[1,6,-1,-1,-1,-1,-1,-1,-1,-1]]],
                               [0x303,[0x01,0x00,$ptr,$ptr2-$ptr,0,0,0]]] );
                exit;
            } else {
                exit;
            }
        }
    }
    sys.startIntRec();
    return;
}
event    @CLOSE.EXTERN {
    sys.startIntRec();
    return;
}
event    @ERROR {
    sys.startIntRec();
    AUTO.fatalError();
    event.mainLoop();
}